home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpsbk100.zip / MUSICDOS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-17  |  625b  |  25 lines

  1. {$M 30000,0,$10000}
  2. program MusicDOS;
  3. uses DOS,SBBKMUZ;
  4. begin
  5.   writeln('SoundBlaster Musical DOS - Copyright 1991, Trevor Robinson');
  6.   if paramcount <> 1 then begin
  7.     writeln(' Syntax:  MUSICDOS  musicfile');
  8.     halt(1);
  9.   end;
  10.   if not BackgroundInit then begin
  11.     writeln(' Not enough memory for music data');
  12.     halt(1);
  13.   end;
  14.   if PlayMuz(paramstr(1)) then begin
  15.     PlayingMode(RepeatSong);
  16.     swapvectors;
  17.     exec(getenv('COMSPEC'),'');
  18.     swapvectors;
  19.     WriteLn('SoundBlaster Musical DOS finished.');
  20.   end else
  21.     writeln(paramstr(1)+' not found.');
  22.   ShutdownBackground;
  23. end.
  24.  
  25.